﻿Module Module1
  Sub Main()

    Dim N1 As Decimal = 9223372036854775807  ' --> OK
    Dim N2 As Decimal = 9223372036854775808  ' --> overflow
    Dim N3 As Decimal = 9223372036854775808D ' --> OK

  End Sub
End Module
